home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr27 / fwkcs200.zip / REPLACE.BAT < prev    next >
DOS Batch File  |  1995-01-16  |  9KB  |  256 lines
  1. @echo off
  2. if exist register.key goto rk
  3. cls
  4. echo.
  5. echo.
  6. echo      If you registered FWKCS(TM) Version 1.19 or later before 1995 Jan 16,
  7. echo      please copy your registration keyfile into this directory, and name
  8. echo      the keyfile REGISTER.KEY.  Then restart this REPLACE program.
  9. echo.
  10. echo      If you do not have an FWKCS registration key, please make sure
  11. echo      that your computer system's date is set to today's date.
  12. echo.
  13. echo.
  14. echo  To stop this program, press Ctrl+C, then y
  15. echo.
  16. pause
  17. :rk
  18. cls
  19. if not .%2 == . goto az
  20. if not exist x_add.lst echo.
  21. echo            Your use of this software is at solely your own risk.
  22. echo            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  23. if not exist x_add.lst echo.
  24. echo This software is intended for use under DOS 3.30 or later, or in a suitable
  25. echo DOS session under a multitasking system (including IBM OS/2 2.0 or later).
  26. echo.
  27. echo    If you encounter any system conflicts when using this software,
  28. echo    please check your system configuration (and DOS session settings).
  29. echo.
  30. echo    If the problem remains, please advise the author at
  31. echo.
  32. echo    Internet email address     if no reply, write to    Fred Kantor
  33. echo    fred.kantor@factory.com                             523 West 112 Street
  34. echo                                                        New York, NY 10025
  35. echo.
  36. if exist x_add.lst echo Automatic exclusion list X_ADD.LST has been found, to add to data base.
  37. if exist x_add.lst echo.
  38. if exist register.key goto rk1
  39. echo Note: REPLACE lets you run an unregistered copy of FWKCS, with a copy of
  40. echo       REGISTER.FRM in the same directory with FWKCS.EXE. You can put the
  41. echo       \CSA directory on your PATH, and call FWKCS from anywhere on your
  42. echo       system.
  43. echo.
  44. echo The suggested test time is up to 30 days. To register, see REGISTER.FRM.
  45. echo                            ~~~~~~~~~~~~~
  46. :rk1
  47. pause
  48. cls
  49. :az
  50. echo Part of FWKCS(TM) Contents_Signature System, Version 2.00.
  51. echo (C)Copyright Frederick W. Kantor 1989, 1995. All rights reserved.
  52. echo.
  53. echo Your use of the FWKCS(TM) Contents_Signature System is at solely your own
  54. echo risk. For safety, please have proper backups of your files.
  55. echo.
  56. echo REPLACE.BAT to replace a working FWKCS(TM) system, Ver. 1.12 or later;
  57. echo    for use in same directory with FWKCS200.ZIP, FWKCS.200, and FWKCS_TM.200.
  58. echo To proceed, have QBASIC, GWBASIC, BASICA, or BASIC available on your path, as
  59. echo      appropriate for your operating system and hardware;
  60. echo  have a working copy of FWKCS in \CSA, containing your macros, paths, etc..
  61. echo      (If you are installing FWKCS(TM) for the first time, use INSTALL.BAT.)
  62. echo                                                               ~~~~~~~~~~~
  63. echo  Usage:   REPLACE d D N C "<enter>"
  64. echo  where  d  without ":" is the drive for the \CS directory
  65. echo         D  without ":" is the drive for the \CSA directory
  66. echo         N = 0 get default settings from old \CSA\FWKCS, Ver. 1.12 or later.
  67. echo             1 install default settings for Ver. 2.00 (including new options).
  68. echo         C = 0 process uploads directly; 1 run as client under FWKCS host.
  69. if .%1 == ./* goto end
  70. if .%1 == . goto nd
  71. if .%2 == . goto nod2
  72. if .%3 == .0 goto aa
  73. if not .%3 == .1 goto bi
  74. :aa
  75. if .%4 == .0 goto ab
  76. if not .%4 == .1 goto bj
  77. :ab
  78. echo.
  79. echo  Are these drives correct:  %1:\CS  and  %2:\CSA ?  If not, stop now!
  80. echo  To quit, press Ctrl+C, then y                            ~~~~~~~~
  81. echo.
  82. pause
  83. if exist fwkcs200.zip attrib -r fwkcs200.zip > nul
  84. if exist fwkcs200.exe attrib -r fwkcs200.exe > nul
  85. if exist 0_setup.bat del 0_setup.bat > nul
  86. if exist 0_setup.bat attrib -r 0_setup.bat > nul
  87. if exist 0_setup.bat del 0_setup.bat > nul
  88. if exist 2_setup.bat del 2_setup.bat > nul
  89. if exist 2_setup.bat attrib -r 2_setup.bat > nul
  90. if exist 2_setup.bat del 2_setup.bat > nul
  91. if exist s_setup.bat del s_setup.bat > nul
  92. if exist s_setup.bat attrib -r s_setup.bat > nul
  93. if exist s_setup.bat del s_setup.bat > nul
  94. if exist myowncsl.srt del myowncsl.srt > nul
  95. if exist myowncsl.srt attrib -r myowncsl.srt > nul
  96. if exist myowncsl.srt del myowncsl.srt > nul
  97. if exist #@!#@!$$.@!@ del #@!#@!$$.@!@ > nul
  98. if exist #@!#@!$$.@!@ attrib -r #@!#@!$$.@!@ > nul
  99. if exist #@!#@!$$.@!@ del #@!#@!$$.@!@ > nul
  100. if exist $@!#@!$$.@!@ del $@!#@!$$.@!@ > nul
  101. if exist $@!#@!$$.@!@ attrib -r $@!#@!$$.@!@ > nul
  102. if exist $@!#@!$$.@!@ del $@!#@!$$.@!@ > nul
  103. if exist $@!#@$!$.@!@ del $@!#@$!$.@!@ > nul
  104. if exist $@!#@$!$.@!@ attrib -r $@!#@$!$.@!@ > nul
  105. if exist $@!#@$!$.@!@ del $@!#@$!$.@!@ > nul
  106. cls
  107. if not exist fwkcs200.exe goto n1
  108. if exist fwkhi.com del fwkhi.com > nul
  109. if exist fwkhi.com attrib -r fwkhi.com > nul
  110. if exist fwkhi.com del fwkhi.com > nul
  111. fwkcs200 -o fwkhi.com > nul
  112. if exist fwkhi.com goto n2
  113. :n1
  114. if not exist fwkcs.200 goto nd
  115. if not exist fwkcs_tm.200 goto cm
  116. ren fwkcs_tm.200 fwkcs_tm.com > nul
  117. fwkcs_tm < fwkcs.200 > fwkcs200.exe
  118. if errorlevel 1 goto fbad
  119. ren fwkcs_tm.com fwkcs_tm.200 > nul
  120. fwkcs200 -o fwkhi.com > nul
  121. if not exist fwkhi.com goto fbad
  122. :n2
  123. cls
  124. echo.
  125. echo.
  126. echo.
  127. echo.
  128. echo.
  129. echo.
  130. echo  Do you wish to automatically capture the contents_signatures
  131. echo  of the files in FWKCS(TM) version 2.00 for future reference?  (Y/N)
  132. echo.
  133. echo  (Because of the way the files are packaged, this step is provided to make
  134. echo  it much easier to capture their contents_signatures. Unless you have a
  135. echo  good reason to not do so, it is suggested that you press Y for Yes.)
  136. echo.
  137. fwkhi /yn
  138. if not errorlevel 1 goto nocs
  139. cls
  140. if exist myowncsl.srt del myowncsl.srt > nul
  141. if exist myowncsl.srt attrib -r myowncsl.srt > nul
  142. if exist myowncsl.srt del myowncsl.srt > nul
  143. if exist fwkcs200.zip ren fwkcs200.zip $@!#@!$$.@!@ > nul
  144. fwkcs200 -o fwkcs.exe register.frm > nul
  145. if not exist fwkcs.exe goto nz
  146. if not exist register.key goto nk
  147. fwkcs /t20register[+register.key]
  148. fwkcs /t20register > nul
  149. if not errorlevel 98 goto wk
  150. echo.
  151. echo  Your REGISTER.KEY file was apparently defective.
  152. echo.
  153. echo  Continuing in unregistered mode...
  154. echo.
  155. :nk
  156. fwkcs
  157. if not errorlevel 99 goto id
  158. :wk
  159. ren fwkcs200.exe fwkcs200.zip > nul
  160. fwkcs /rt20/1 fwkcs200.zip #@!#@!$$.@!@ > nul
  161. ren fwkcs200.zip fwkcs200.exe > nul
  162. if exist $@!#@!$$.@!@ ren $@!#@!$$.@!@ fwkcs200.zip > nul
  163. if exist fwkcs200.zip fwkcs /t20/1 fwkcs200.zip >> #@!#@!$$.@!@
  164. if exist fwkcs200.zip goto kcz
  165. if exist #@@!##@_._$_ del #@@!##@_._$_ > nul
  166. if exist #@@!##@_._$_ attrib -r #@@!##@_._$_ > nul
  167. if exist FILE_ID.DIZ  echo FILE_ID.DIZ >   #@@!##@_._$_
  168. if exist README.1ST   echo README.1ST >>   #@@!##@_._$_
  169. if exist README.TXT   echo README.TXT >>   #@@!##@_._$_
  170. if exist WHATSNEW.TXT echo WHATSNEW.TXT >> #@@!##@_._$_
  171. if exist REGISTER.DOC echo REGISTER.DOC >> #@@!##@_._$_
  172. if exist REGISTER.FRM echo REGISTER.FRM >> #@@!##@_._$_
  173. if exist INSTALL.BAT  echo INSTALL.BAT >>  #@@!##@_._$_
  174. if exist REPLACE.BAT  echo REPLACE.BAT >>  #@@!##@_._$_
  175. if exist QIKSTART.BAT echo QIKSTART.BAT >> #@@!##@_._$_
  176. if exist GETLOOK.BAT  echo GETLOOK.BAT >>  #@@!##@_._$_
  177. if exist FWKCS.200    echo FWKCS.200 >>    #@@!##@_._$_
  178. if exist FWKCS_TM.200 echo FWKCS_TM.200 >> #@@!##@_._$_
  179. fwkcs /t20/1cp #@@!##@_._$_ >> #@!#@!$$.@!@
  180. del #@@!##@_._$_ > nul
  181. :kcz
  182. fwkcs #@!#@!$$.@!@ /rt20a7.8v",!" $@!#@$!$.@!@ > nul
  183. del #@!#@!$$.@!@ > nul
  184. fwkcs $@!#@$!$.@!@ /rt20s > nul
  185. if exist $$mt$$ del $$mt$$ > nul
  186. if exist $$mt$$ fwkcs /rt30a7.7c $$mt$$ > nul
  187. fwkcs $$mt$$ /rt30mn > nul
  188. fwkcs $@!#@$!$.@!@ $$mt$$ myowncsl.srt /rt20ms > nul
  189. del $$mt$$ > nul
  190. del $@!#@$!$.@!@ > nul
  191. del fwkcs.exe > nul
  192. :nocs
  193. fwkcs200 -o s_setup.bat > nul
  194. del fwkhi.com > nul
  195. echo replacing with FWKCS Version 2.00 > replm200.200
  196. s_setup %1 ! %2 %3 %4
  197. :nv200
  198. echo.
  199. echo  REPLACE.BAT is for use in the same directory together with
  200. echo  files  FWKCS.200  and  FWKCS_TM.200 .
  201. goto clu
  202. :bi
  203. echo.
  204. echo  I need N = 0 or 1 ; 0 to get your old defaults, 1 to install new defaults.
  205. goto helpr
  206. :bj
  207. echo.
  208. echo  I need C = 0 or 1 ; 0 for direct processing of uploads at (each) node,
  209. echo                      1 to set up node(s) as client(s) under FWKCS host.
  210. goto helpr
  211. :nz
  212. echo.
  213. echo Problem in running self_extraction.
  214. goto fbad
  215. :id
  216. if exist fwkcs200.exe del fwkcs200.exe > nul
  217. if exist $@!#@!$$.@!@ ren $@!#@!$$.@!@ fwkcs200.zip > nul
  218. del fwkcs.exe > nul
  219. echo.
  220. echo  Bad system date!
  221. echo.
  222. echo  Execution aborted!
  223. echo.
  224. echo  After you have set your computer system's date to today's date,
  225. goto helpr
  226. :fbad
  227. del fwkcs200.exe > nul
  228. ren fwkcs_tm.com fwkcs_tm.200 > nul
  229. echo.
  230. echo  FWKCS.200 or FWKCS_TM.200 appears defective or incompatible.
  231. echo.
  232. echo  Execution aborted.
  233. :clu
  234. echo.
  235. echo  Please clean up, and try again. See README.TXT.
  236. goto end
  237. :cm
  238. echo.
  239. echo  I need FWKCS_TM.200.
  240. echo.
  241. echo        I quit!
  242. goto end
  243. :nod2
  244. echo.
  245. echo   I need two drive entries (they can both have the same letter).
  246. :helpr
  247. echo.
  248. echo   Please try again...
  249. goto end
  250. :nd
  251. echo.
  252. echo    Please see "Usage", above...
  253. :end
  254. if exist fwkhi.com del fwkhi.com > nul
  255. echo.
  256.